home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / data / aka / aka.plt < prev   
Text File  |  1994-11-16  |  21KB  |  544 lines
  1.  
  2. /*      SetPF-Pilot 『 赤巻紙 』                                        */
  3. /*    All Right Reserved, Copyright (c)  モップ(NIFTY-PFF00570) 1991  */
  4. /*                  　　　　　　　　　　　　  (Masahiro Kezuka)         */
  5. /*    All Right Reserved, Copyright (c)  綾小路(NIFTY-GFA03063) 1994  */
  6.  
  7. %getcdir2 {case(@tail(@getcdir,{\}),{},{getcdir;},,{im(@getcdir|{\});},);};
  8. %initdir2 {case(@tail(@initdir,{\}),{},{initdir;},,{im(@initdir|{\});},);};
  9.  
  10. /*******************ＰＦ１キーに Dos コマンド ********************************/
  11. setpf(1,{%f @input({ Dos コマンド},{c});case(f,{},,,{command(f);});});
  12.  
  13. /*******************ＰＦ２キーに 起動ファイル起動 ****************************/
  14. setpf(2,{footnote({ ファイル起動});%f @filesel;case(f,{},,,{command(f)},);});
  15.  
  16. /*******************ＰＦ３キーに Copy コマンド 呼出し*************************/
  17. setpf(3,{#}|@getcdir2|{AKA_.PLP({copy});});
  18.  
  19. /*******************ＰＦ４キーに Del  コマンド *******************************/
  20. setpf(4,{footnote({ Del コマンド});}|
  21. {%f @filesel;case(f,{},,,{command({Del }|f)},);});
  22.  
  23. /*******************ＰＦ５キーに move コマンド 呼出し*************************/
  24. setpf(5,{#}|@getcdir2|{AKA_.PLP({move});});
  25.  
  26. /*******************ＰＦ６キーに LHA 解凍 ************************************/
  27. setpf(6,{footnote({LHA解凍});}|
  28. {%f @filesel({LZH});case(f,{},,,{command({LHA X }|f)})});
  29.  
  30. /*******************ＰＦ７キーに LHA 圧縮 ************************************/
  31. setpf(7,{%f @filesel;}|
  32. {case(f,{},,,{command({LHA U }|@head(f,{\},{.})|{ }|f)},)});
  33.    /* footnote({ Lha圧縮}); */
  34.  
  35. /*******************ＰＦ８キーに LHA 一覧 ************************************/
  36. setpf(8,{footnote({ LHA一覧});}|
  37. {%f @filesel({LZH});case(f,{},,,{command({LHA L }|f)},);});
  38.  
  39. /*******************ＰＦ９キーに LHA 自己爆裂型変換 **************************/
  40. setpf(9,{footnote({ LHA型変換});}|
  41. {%f @filesel({LZH});case(f,{},,,{command({LHA S }|f)},);});
  42.    /* footnote({ Lha自己爆裂型変換}); */
  43.  
  44. /*******************ＰＦ１０キーに LINE.PLT 登録 *****************************/
  45. setpf(10,{footnote({ 読み込み中です});#}|@initdir2|{LINE.PLT});
  46.  
  47. /*******************ＰＦ１１キーに ヘルプ ぢつは再起動 ***********************/
  48. setpf(11,{setcdir(}|@xc({7b})|@getcdir|@xc({7d})|{);}|{#AKA.PLT});
  49.  
  50. /*******************ＰＦ１２キーに いきなり終了 ******************************/
  51. setpf(12,{stopterm});
  52.  
  53. /*******************ＰＦ１３キーに Snd 発声 ﾄﾓｼｶｼﾀﾗ Wav 発声 *****************/
  54. case(@getchar(@version,{5},{1}),
  55.      {W},{setpf(13,{footnote({ Wav発声});}
  56.                     |{%f @filesel({WAV});case(f,{},,,{snd(f)});});},
  57.         ,{setpf(13,{footnote({ Snd発声});}
  58.                     |{%f @filesel({SND});case(f,{},,,{snd(f)});});},
  59.      );
  60.  
  61. /*******************ＰＦ１４キーに Type コマンド *****************************/
  62. setpf(14,{footnote({ Type コマンド});}|
  63. {%f @filesel;case(f,{},,,{command({Type }|f)},);});
  64.  
  65. /*******************ＰＦ１５キーに ﾃﾞｨﾚｸﾄﾘ作成 *******************************/
  66. setpf(15,{footnote({ DIR 作成});}
  67.       |{%f @filesel;case(f,{},,,{command({MD }|@head(f,{\},{.}))})});
  68. /* footnote({ ﾃﾞｨﾚｸﾄﾘ作成}); */
  69.  
  70. /*******************ＰＦ１６キーに Dos コンソール ****************************/
  71. setpf(16,{footnote({ ＊ Dos コンソール ＊  Exit で終了});
  72. command({COMMAND.COM});});
  73.  
  74. /*******************ＰＦ１７キーに Ish ﾌｧｲﾙ復元 ******************************/
  75. setpf(17,{footnote({ Ish復元});}|
  76. {%f @filesel;case(f,{},,,{command({ISH }|f)});}); 
  77.  
  78. /*******************ＰＦ１８キーに Ish ﾃｷｽﾄ作成 ******************************/
  79. setpf(18,{footnote({ Ish作成});}|
  80. {%f @filesel;case(f,{},,,{command({ISH }|f|{ /ss})});});
  81.  
  82. /*******************ＰＦ１９キーに Pilot文入力 *******************************/
  83. setpf(19,{%f @input({ Pilot文入力},{c});case(f,{},,,{f;});});
  84.  
  85. /*******************ＰＦ２０キーに 背景色変更 ********************************/
  86. setpf(20,{%f @input({ 背景色変更  赤,緑,青},{c});}|
  87.        {%e{backclr(}|f|{);};case(f,{},,,{e;});});
  88.  
  89. %spase {                         };
  90. %wk    {  };
  91. %line1 {im(wk|{MopTerm }|@version|{})};
  92. %today @daylong;
  93. %line2 {
  94.     %a  @head    (today,{/});
  95.     %b  @case    (@getchar (today,{6},{1})= 0,
  96.                {Yes},{im({ }|@getchar (today,{7},{1}) );},
  97.                {No} ,{im(    @getchar (today,{6},{2}) );},  );
  98.     %c  @case    (@getchar (today,{9},{1})= 0,
  99.             {Yes},{im({ }|@getchar (today,{10},{1}) );},
  100.             {No} ,{im(    @getchar (today,{9} ,{2}) );},  );
  101.     %d  @case    (@getchar (today,{12},{3}),
  102.             {Sun},{im({ 日曜日})},
  103.             {Mon},{im({ 月曜日})},
  104.             {Tue},{im({ 火曜日})},
  105.             {Wed},{im({ 水曜日})},
  106.             {Thu},{im({ 木曜日})},
  107.             {Fri},{im({ 金曜日})},
  108.             {Sat},{im({ 土曜日})},
  109.                  ,{im({       })}, );
  110.     im(wk|{}|a|{ 年 }|b|{ 月 }|c|{ 日}|d);
  111.     };
  112.  
  113. %line3 {
  114.     %a  @case (@getchar (today,{16},{2}),
  115.            00,{im({　深夜　});},
  116.            01,{im({　深夜　});},
  117.            02,{im({　深夜　});},
  118.            03,{im({　深夜　});},
  119.            04,{im({　深夜　});},
  120.            05,{im({　早朝　});},
  121.            06,{im({　早朝　});},
  122.            07,{im({　 朝 　});},
  123.            08,{im({　 朝 　});},
  124.            09,{im({　 朝 　});},
  125.            10,{im({　 朝 　});},
  126.            11,{im({ お昼前 });},
  127.            12,{im({　 昼 　});},
  128.            13,{im({　 昼 　});},
  129.            14,{im({　 昼 　});},
  130.            15,{im({おやつ時});},
  131.            16,{im({　夕方　});},
  132.            17,{im({　夕方　});},
  133.            18,{im({　夕方　});},
  134.            19,{im({　夕方　});},
  135.            20,{im({　 夜 　});},
  136.            21,{im({　 夜 　});},
  137.            22,{im({　 夜 　});},
  138.            23,{im({　深夜　});},
  139.            24,{im({　深夜　});},
  140.              ,{im({        });},
  141.            );
  142.     %b @case    (@getchar (today,{16},{1})= 0,
  143.             {Yes},{im({ }|@getchar (today,{17},{1}) );},
  144.             {No} ,{im(    @getchar (today,{16},{2}) );},  );
  145.     %c @case    (@getchar (today,{19},{1})= 0,
  146.             {Yes},{im({ }|@getchar (today,{20},{1}) );},
  147.             {No} ,{im(    @getchar (today,{19},{2}) );},  );
  148.     %d @case    (@getchar (today,{22},{1})= 0,
  149.             {Yes},{im({ }|@getchar (today,{23},{1}) );},
  150.             {No} ,{im(    @getchar (today,{22},{2}) );},  );
  151.     im(wk|a|{}|b|{ 時 }|c|{ 分 }|d|{ 秒 });
  152.     };
  153.  
  154. %line4 {
  155.     case(@getchar(today,16,2),
  156.          19,{im(wk|{    NTT 夜間割引時間帯    });},
  157.          20,{im(wk|{    NTT 夜間割引時間帯    });},
  158.          21,{im(wk|{    NTT 夜間割引時間帯    });},
  159.          22,{im(wk|{    NTT 夜間割引時間帯    });},
  160.          23,{im(wk|{    NTT 深夜割引時間帯    });},
  161.          00,{im(wk|{    NTT 深夜割引時間帯    });},
  162.          01,{im(wk|{    NTT 深夜割引時間帯    });},
  163.          02,{im(wk|{    NTT 深夜割引時間帯    });},
  164.          03,{im(wk|{NTT & NIFTY 深夜割引時間帯});},
  165.          04,{im(wk|{NTT & NIFTY 深夜割引時間帯});},
  166.          05,{im(wk|{NTT & NIFTY 深夜割引時間帯});},
  167.          06,{im(wk|{NTT & NIFTY 早朝割引時間帯});},
  168.          07,{im(wk|{NTT & NIFTY 早朝割引時間帯});},
  169.     /*   08,{im(wk|{NTT & NIFTY 早朝割引時間帯});},*/
  170.            ,{im(wk|{                          });},
  171.          );
  172.     };
  173.  
  174. %line5 {
  175.     %linetim2 @linetime+8;
  176.     %jikan    linetim2/3600;
  177.     %fun      (linetim2-jikan*360)/60;
  178.     %viyou    linetim2-jikan*360-fun*60;
  179.     %fun      @case(@nochar(fun  ),1,{im({ }|fun  );},,{im(fun  );},); 
  180.     %viyou    @case(@nochar(viyou),1,{im({ }|viyou);},,{im(viyou);},); 
  181.     %g @case (jikan==0,
  182.           {Yes},{
  183.              case (fun==0,
  184.                    {Yes},{im({回線接続中 :     }
  185.                      |viyou|{ 秒    });          },
  186.                 {No} ,{im({回線接続中 :   }
  187.                       |fun|{ 分 }|viyou|{ 秒});  },
  188.                    );
  189.              },
  190.           {No} ,{
  191.              case (jikan> 9 ,
  192.                    {Yes},{im({回線接続中 : }
  193.                      |jikan|{ 時間越ｴﾏｼﾀ});},
  194.                    {No} ,{im({回線接続中 : }
  195.                      |jikan|{時間}|fun|{分}|viyou|{秒});},
  196.                    );
  197.              },
  198.           );
  199.     case(@linechck,
  200.          {Yes},{im(wk|g);},
  201.          {No} ,{im(wk|{　　　　　　　　　　　　　});},
  202.          );
  203.     };
  204.  
  205. %line6 {
  206.     case(@getchar(today,6,5),
  207.       {12/01},{im(wk|{      世界エイズデー      });},
  208.       {12/23},{im(wk|{        天皇誕生日        });},
  209.       {12/24},{im(wk|{      クリスマスイヴ      });},
  210.       {12/25},{im(wk|{        クリスマス        });},
  211.       {12/28},{im(wk|{       官庁御用納め       });},
  212.       {12/31},{im(wk|{          大晦日          });},
  213.       {01/01},{im(wk|{          元  日          });},
  214.       {01/15},{im(wk|{         成人の日         });},
  215.       {02/03},{im(wk|{          節  分          });},
  216.       {02/11},{im(wk|{       建国記念の日       });},
  217.       {02/14},{im(wk|{     バレンタインデー     });},
  218.       {03/03},{im(wk|{         ひな祭り         });},
  219.       {03/14},{im(wk|{       ホワイトデー       });},
  220.       {03/21},{im(wk|{         春分の日         });},
  221.       {04/01},{im(wk|{     エイプリルフール     });},
  222.       {04/29},{im(wk|{        みどりの日        });},
  223.       {05/01},{im(wk|     {         メーデー         });},
  224.       {05/03},{im(wk|{        憲法記念日        });},
  225.       {05/04},{im(wk|{        国民の休日        });},
  226.       {05/05},{im(wk|{        こどもの日        });},
  227.       {05/14},{im(wk|     {          母の日          });},
  228.       {05/30},{im(wk|{       ゴミゼロの日       });},
  229.       {06/12},{im(wk|{         恋人の日         });},
  230.       {06/18},{im(wk|{          父の日          });},
  231.       {07/02},{im(wk|{        うどんの日        });},
  232.       {07/07},{im(wk|{          七  夕          });},
  233.       {07/10},{im(wk|{         納豆の日         });},
  234.       {07/14},{im(wk|{          パリ祭          });},
  235.       {08/06},{im(wk|{        広島原爆忌        });},
  236.       {08/09},{im(wk|{        長崎原爆忌        });},
  237.       {08/15},{im(wk|{        終戦記念日        });},
  238.       {09/01},{im(wk|{         防災の日         });},
  239.       {09/15},{im(wk|{         敬老の日         });},
  240.       {09/23},{im(wk|{         秋分の日         });},
  241.       {10/10},{im(wk|{         体育の日         });},
  242.       {10/31},{im(wk|{       ハロウィーン       });},
  243.       {11/03},{im(wk|{         文化の日         });},
  244.       {11/23},{im(wk|{       勤労感謝の日       });},
  245.  
  246.       {12/17},{im(wk|{Oh!FM-TOWNS 一月号発売前日});},
  247.       {12/18},{im(wk|{ Oh!FM-TOWNS 一月号発売日 });},
  248.       {01/17},{im(wk|{Oh!FM-TOWNS 二月号発売前日});},
  249.       {01/18},{im(wk|{ Oh!FM-TOWNS 二月号発売日 });},
  250.       {02/17},{im(wk|{Oh!FM-TOWNS 三月号発売前日});},
  251.       {02/18},{im(wk|{ Oh!FM-TOWNS 三月号発売日 });},
  252.       {03/17},{im(wk|{Oh!FM-TOWNS 四月号発売前日});},
  253.       {03/18},{im(wk|{ Oh!FM-TOWNS 四月号発売日 });},
  254.       {04/17},{im(wk|{Oh!FM-TOWNS 五月号発売前日});},
  255.       {04/18},{im(wk|{ Oh!FM-TOWNS 五月号発売日 });},
  256.       {05/17},{im(wk|{Oh!FM-TOWNS 六月号発売前日});},
  257.       {05/18},{im(wk|{ Oh!FM-TOWNS 六月号発売日 });},
  258.       {06/16},{im(wk|{Oh!FM-TOWNS 七月号発売前日});},
  259.       {06/17},{im(wk|{ Oh!FM-TOWNS 七月号発売日 });},
  260.       {07/17},{im(wk|{Oh!FM-TOWNS 八月号発売前日});},
  261.       {07/18},{im(wk|{ Oh!FM-TOWNS 八月号発売日 });},
  262.       {08/17},{im(wk|{Oh!FM-TOWNS 九月号発売前日});},
  263.       {08/18},{im(wk|{ Oh!FM-TOWNS 九月号発売日 });},
  264.       {09/17},{im(wk|{Oh!FM-TOWNS 十月号発売前日});},
  265.       {09/18},{im(wk|{ Oh!FM-TOWNS 十月号発売日 });},
  266.       {10/17},{im(wk|{Oh!FM-TOWNS 11月号発売前日});},
  267.       {10/18},{im(wk|{ Oh!FM-TOWNS 11月号発売日 });},
  268.       {11/16},{im(wk|{Oh!FM-TOWNS 12月号発売前日});},
  269.       {11/17},{im(wk|{ Oh!FM-TOWNS 12月号発売日 });},
  270.  
  271.       {12/21},{im(wk|{NIFTY 十月分課金引落し前日});},
  272.       {12/22},{im(wk|{NIFTY 十月分課金引き落し日});},
  273.       {01/21},{im(wk|{NIFTY 11月分課金引落し前日});},
  274.       {01/22},{im(wk|{NIFTY 11月分課金引き落し日});},
  275.       {02/22},{im(wk|{NIFTY 12月分課金引落し前日});},
  276.       {02/23},{im(wk|{NIFTY 12月分課金引き落し日});},
  277.       {03/21},{im(wk|{NIFTY 一月分課金引落し前日});},
  278.       {03/22},{im(wk|{NIFTY 一月分課金引き落し日});},
  279.       {04/21},{im(wk|{NIFTY 二月分課金引落し前日});},
  280.       {04/22},{im(wk|{NIFTY 二月分課金引き落し日});},
  281.       {05/21},{im(wk|{NIFTY 三月分課金引落し前日});},
  282.       {05/22},{im(wk|{NIFTY 三月分課金引き落し日});},
  283.       {06/21},{im(wk|{NIFTY 四月分課金引落し前日});},
  284.       {06/22},{im(wk|{NIFTY 四月分課金引き落し日});},
  285.       {07/21},{im(wk|{NIFTY 五月分課金引落し前日});},
  286.       {07/22},{im(wk|{NIFTY 五月分課金引き落し日});},
  287.       {08/21},{im(wk|{NIFTY 六月分課金引落し前日});},
  288.       {08/22},{im(wk|{NIFTY 六月分課金引き落し日});},
  289.       {09/21},{im(wk|{NIFTY 七月分課金引落し前日});},
  290.       {09/22},{im(wk|{NIFTY 七月分課金引き落し日});},
  291.       {10/22},{im(wk|{NIFTY 八月分課金引落し前日});},
  292.       {10/23},{im(wk|{NIFTY 八月分課金引き落し日});},
  293.       {11/21},{im(wk|{NIFTY 九月分課金引落し前日});},
  294.       {11/22},{im(wk|{NIFTY 九月分課金引き落し日});},
  295.       {},{im(wk|{});},
  296.          ,{im(wk|{                          });},
  297.          );
  298.     };
  299.  
  300. %line7 {
  301.     %a @case(@nochar(@initdir2)<14,
  302.         {Yes},{im(@initdir2|@getchar(spase,1,14-@nochar(@initdir2)));},
  303.         {No} ,{im(@getchar(@initdir2,1,2)|{･･}
  304.                |@getchar(@initdir2,@nochar(@initdir2)-9,10) );},
  305.          );
  306.     im(wk|{起動ﾃﾞｨﾚｸﾄﾘ }|a|{});
  307.     };
  308.  
  309. %line8 {
  310.     %a @case (@nochar(@getcdir2)<14,
  311.         {Yes},{im(@getcdir2|@getchar(spase,1,14-@nochar(@getcdir2)));},
  312.         {No} ,{im(@getchar(@getcdir2,1,2)|{･･}
  313.                |@getchar(@getcdir2,@nochar(@getcdir2)-9,10) );},
  314.           );
  315.     im(wk|{現在ﾃﾞｨﾚｸﾄﾘ }|a|{});
  316.     };
  317.  
  318. %line9 {
  319.     %diskrem2{
  320.           %remsize @nochar(@diskrem);
  321.           case(remsize< 9,
  322.                {Yes},{im(@diskrem|{ });},
  323.                {No} ,{@case(remsize< 12,
  324.                     {Yes},{im(@getchar(@diskrem,1,
  325.                           remsize-3)|{ K}
  326.                           );
  327.                        },
  328.                     {No} ,{im(@getchar(@diskrem,1,
  329.                           remsize-6)|{ M}
  330.                           );
  331.                        },
  332.                     );
  333.                   },
  334.                );
  335.           };
  336.     %a @case(@nochar(@diskrem2)<9,
  337.          {Yes},{im(@getchar(spase,1,9-@nochar(@diskrem2))|@diskrem2);},
  338.          {No} ,{im({         });},
  339.          );
  340.     im(wk|{   残り容量 }|a|{Bytes});
  341.     };
  342.  
  343. %line10{
  344.     case(@mlast==0,
  345.          {Yes},{im(wk|{　　　　　　　　　　　　　});},
  346.          {No} ,{case(@mcheck==0,
  347.              {Yes},{im(wk|{　　　 ﾒﾓ }|
  348.                    @mlast|{ 枚展開　　　　}
  349.                    );
  350.                 },
  351.              {No} ,{im(wk|{ ﾒﾓ }|
  352.                    @mlast|{ 枚展開 }|@mcheck|{ 番ﾒﾓ編集中 }
  353.                    );
  354.                 },
  355.              );
  356.             },
  357.          );
  358.     };
  359.  
  360. %line12{
  361.     %a  @getchar (today,{1},{4})|{ 年 };
  362.     %b  @getchar (today,{6},{2})+0;
  363.     %b1 {%b b-1;
  364.          case(@nochar(b)==1,
  365.           {Yes},{case(b,0,{im({12});},,{im({ }|b);},);},
  366.           {No} ,{im(b);},
  367.           );
  368.          };
  369.     %b2 {
  370.          case(@nochar(b)==1,
  371.           {Yes},{im({ }|b);},
  372.           {No} ,{im(b);    },
  373.           );
  374.          };
  375.     %b3 {%b b+1;
  376.          case(@nochar(b)==1,
  377.           {Yes},{im({ }|b);},
  378.           {No} ,{case(b,13,{im({ 1});},,{im(b);},);},
  379.           );
  380.          };
  381.     %c { 月               };
  382.     im({}|a|@b1|c|a|@b2|c|a|@b3|{ 月});
  383.     };
  384.  
  385. %line13{
  386.     %a {日 月 火 水 木 金 土};
  387.     im(a|{        }|a|{        }|a);
  388.     };
  389.  
  390. %line14{
  391.     %hi   @case(@getchar (today,{9},{1})= 0,
  392.             {Yes},{im({ }|@getchar (today,{10},{1}) );},
  393.             {No} ,{im(    @getchar (today,{9} ,{2}) );},
  394.             );
  395.     %change{[line]
  396.         case(@head(line,{ }|hi)= line,
  397.              {Yes},{im(line);},
  398.              {No} ,{im(@head(line,hi)|{}
  399.                    |hi|{}|@body(line,hi)
  400.                    );
  401.                 },
  402.                );
  403.         };
  404.  
  405.     %hi111 {        1  2  3  4  5}; /* 1994/11 */
  406.     %hi112 {  6  7  8  9 10 11 12};
  407.     %hi113 { 13 14 15 16 17 18 19};
  408.     %hi114 { 20 21 22 23 24 25 26};
  409.     %hi115 { 27 28 29 30         };
  410.     %hi116 {                     };
  411.  
  412.     %hi121 {              1  2  3}; /* 1994/12 */
  413.     %hi122 {  4  5  6  7  8  9 10};
  414.     %hi123 { 11 12 13 14 15 16 17};
  415.     %hi124 { 18 19 20 21 22 23 24};
  416.     %hi125 { 25 26 27 28 29 30   };
  417.     %hi126 {                     };
  418.  
  419.     %hi011 {  1  2  3  4  5  6  7}; /* 1995/01 */
  420.     %hi012 {  8  9 10 11 12 13 14};
  421.     %hi013 { 15 16 17 18 19 20 21};
  422.     %hi014 { 22 23 24 25 26 27 28};
  423.     %hi015 { 29 30 31            };
  424.     %hi016 {                     };
  425.  
  426.     %hi021 {           1  2  3  4}; /* 1995/02 */
  427.     %hi022 {  5  6  7  8  9 10 11};
  428.     %hi023 { 12 13 14 15 16 17 18};
  429.     %hi024 { 19 20 21 22 23 24 25};
  430.     %hi025 { 26 27 28            };
  431.     %hi026 {                     };
  432.  
  433.     %hi031 {           1  2  3  4}; /* 1995/03 */
  434.     %hi032 {  5  6  7  8  9 10 11};
  435.     %hi033 { 12 13 14 15 16 17 18};
  436.     %hi034 { 19 20 21 22 23 24 25};
  437.     %hi035 { 26 27 28 29 30 31   };
  438.     %hi036 {                     };
  439.  
  440.     %hi041 {                    1}; /* 1995/04 */
  441.     %hi042 {  2  3  4  5  6  7  8};
  442.     %hi043 {  9 10 11 12 13 14 15};
  443.     %hi044 { 16 17 18 19 20 21 22};
  444.     %hi045 { 23 24 25 26 27 28 29};
  445.     %hi046 { 30                  };
  446.  
  447.     %hi051 {     1  2  3  4  5  6};
  448.     %hi052 {  7  8  9 10 11 12 13}; /* 1995/05 */
  449.     %hi053 { 14 15 16 17 18 19 20};
  450.     %hi054 { 21 22 23 24 25 26 27};
  451.     %hi055 { 28 29 30 31         };
  452.     %hi056 {                     };
  453.  
  454.     %hi061 {              1  2  3}; /* 1995/06 */
  455.     %hi062 {  4  5  6  7  8  9 10};
  456.     %hi063 { 11 12 13 14 15 16 17};
  457.     %hi064 { 18 19 20 21 22 23 24};
  458.     %hi065 { 25 26 27 28 29 30   };
  459.     %hi066 {                     };
  460.  
  461.     %hi071 {                    1}; /* 1995/07 */
  462.     %hi072 {  2  3  4  5  6  7  8};
  463.     %hi073 {  9 10 11 12 13 14 15};
  464.     %hi074 { 16 17 18 19 20 21 22};
  465.     %hi075 { 23 24 25 26 27 28 29};
  466.     %hi076 { 30 31               };
  467.  
  468.     %hi081 {        1  2  3  4  5}; /* 1995/08 */
  469.     %hi082 {  6  7  8  9 10 11 12};
  470.     %hi083 { 13 14 15 16 17 18 19};
  471.     %hi084 { 20 21 22 23 24 25 26};
  472.     %hi085 { 27 28 29 30 31      };
  473.     %hi086 {                     };
  474.  
  475.     %hi091 {                 1  2}; /* 1995/09 */
  476.     %hi092 {  3  4  5  6  7  8  9};
  477.     %hi093 { 10 11 12 13 14 15 16};
  478.     %hi094 { 17 18 19 20 21 22 23};
  479.     %hi095 { 24 25 26 27 28 29 30};
  480.     %hi096 {                     };
  481.  
  482.     %hi101 {  1  2  3  4  5  6  7}; /* 1995/10 */
  483.     %hi102 {  8  9 10 11 12 13 14};
  484.     %hi103 { 15 16 17 18 19 20 21};
  485.     %hi104 { 22 23 24 25 26 27 28};
  486.     %hi105 { 29 30 31            };
  487.     %hi106 {                     };
  488.  
  489.     %a1 {im({\n }|hi};
  490.     %a2 {|{ \n }|hi};
  491.     %a3 {|{       }|@change(hi};
  492.     %a4 {|{       }|hi};
  493.     %a5 {|{\n});};
  494.     %b  @getchar (today,{6},{2})+0;
  495.     %b1 {%b b-1;
  496.          case(@nochar(b)==1,
  497.           {Yes},{case(b,0,{im({12});},,{im({0}|b);},);},
  498.           {No} ,{im(b);},
  499.           );
  500.          };
  501.     %b2 {
  502.          case(@nochar(b)==1,
  503.           {Yes},{im({0}|b);},
  504.           {No} ,{im(b);    },
  505.           );
  506.          };
  507.     %b3 {%b b+1;
  508.          case(@nochar(b)==1,
  509.           {Yes},{im({0}|b);},
  510.           {No} ,{case(b,13,{im({01});},,{im(b);},);},
  511.           );
  512.          };
  513.     %a1 a1|@b1;
  514.     %a2 a2|@b1;
  515.     %a3 a3|@b2;
  516.     %a4 a4|@b3;
  517.     %c  a1|{1}|a3|{1)}|a4|{1}|
  518.         a2|{2}|a3|{2)}|a4|{2}|
  519.         a2|{3}|a3|{3)}|a4|{3}|
  520.         a2|{4}|a3|{4)}|a4|{4}|
  521.         a2|{5}|a3|{5)}|a4|{5}|
  522.         a2|{6}|a3|{6)}|a4|{6}|a5;
  523.     c;
  524.     };
  525.  
  526. %s {case(@getchar(@version,{5},{1}),{W},{im({Wav 発});},,{im({Snd 発});},);};
  527.  
  528. display({
  529.       Ayanokouji Plesents          SetPF-Pilot 『 赤巻紙 』                  
  530.    } |@line1|{   PF 1 : Dos  ｺﾏﾝﾄﾞ     PF11 : Help         }|wk|{
  531.    } |@line2|{   PF 2 : ﾌｧｲﾙ 起動      PF12 : 終了         }|wk|{
  532.    } |@line3|{   PF 3 : Copy ｺﾏﾝﾄﾞ     PF13 : }|@s|{声     }|wk|{
  533.    } |@line4|{   PF 4 : Del  ｺﾏﾝﾄﾞ     PF14 : Type ｺﾏﾝﾄﾞ   }|wk|{
  534.    } |@line5|{   PF 5 : Move ｺﾏﾝﾄﾞ     PF15 : ﾃﾞｨﾚｸﾄﾘ作成  }|wk|{
  535.    } |@line6|{   PF 6 : LHA 解凍       PF16 : Dos ｺﾝｿｰﾙ    }|wk|{
  536.    } |@line7|{   PF 7 : LHA 圧縮       PF17 : ISH ﾌｧｲﾙ復元 }|wk|{
  537.    } |@line8|{   PF 8 : LHA 一覧       PF18 : ISH ﾃｷｽﾄ作成 }|wk|{
  538.    } |@line9|{   PF 9 : LHA 自爆型変換 PF19 : Pilot文入力  }|wk|{
  539.    }|@line10|{   PF10 : LINE.PLT 起動  PF20 : 背景色変更   }|wk|{
  540.                                                       Version 1.01 94-08-23  
  541.       }|@line12|{
  542.   }|@line13|{ }|@line14);
  543.  
  544.